home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / graphic / tpega.zip / GPPARMS.P < prev    next >
Text File  |  1986-02-03  |  2KB  |  64 lines
  1. {                                                                              }
  2. {       EGA Graphic Primitive for Turbo Pascal 3.01A, Version 03FEB86.         }
  3. {       (C) 1986 by Kent Cedola, 2015 Meadow Lake Ct., Norfolk, VA, 23518      }
  4. {                                                                              }
  5.  
  6. var
  7.   GDTYPE:    Integer;
  8.   GDOTHER:   Integer;
  9.   GDMEMORY:  Integer;
  10.   GDMAXCOL:  Integer;
  11.   GDMAXROW:  Integer;
  12.   GDMAXPAL:  Integer;
  13.   GDMAXCLR:  Integer;
  14.  
  15.   GDCOLOR:    Integer;
  16.   GDMERGE:    Integer;
  17.   GDSTYLE:   ^Byte;
  18.   GDSHADE:   ^Byte;
  19.   GDSHADE1:   array [0..65] of byte;
  20.   GDASPC1:    Integer;
  21.   GDASPC2:    Integer;
  22.   GDCUR_X:    Integer;
  23.   GDCUR_Y:    Integer;
  24.  
  25.   GDGSEG:     Integer;
  26.   GDGSADR:    Integer;
  27.  
  28.   GDWD_X1:    Integer;
  29.   GDWD_X2:    Integer;
  30.   GDWD_X3:    Integer;
  31.   GDWD_Y1:    Integer;
  32.   GDWD_Y2:    Integer;
  33.   GDWD_Y3:    Integer;
  34.   GDVW_X1:    Integer;
  35.   GDVW_X2:    Integer;
  36.   GDVW_X3:    Integer;
  37.   GDVW_Y1:    Integer;
  38.   GDVW_Y2:    Integer;
  39.   GDVW_Y3:    Integer;
  40.  
  41.   GDC_FLG:    Integer;
  42.   GDS_FLG:    Integer;
  43.   GDW_FLG:    Boolean;
  44.  
  45.   GDCURX1:    Integer;
  46.   GDCURY1:    Integer;
  47.  
  48. procedure GPPARMS;
  49. begin
  50.   inline
  51.     ($B4/$12 /$B3/$10 /$B9/$FFFF /$CD/$10 /$83/$F9/$FF /$74/$4B
  52.       /$89/$0E/GDOTHER /$8A/$E9 /$8A/$C3 /$25/>$03 /$40 /$B1/$06 /$D3/$E0
  53.       /$A3/GDMEMORY /$B8/>$04 /$0A/$DB /$74/$03 /$B8/>$10 /$A3/GDMAXCLR
  54.       /$B8/>$10 /$A3/GDMAXPAL /$B8/$027F /$A3/GDMAXCOL /$B8/$015D /$A3/GDMAXROW
  55.       /$80/$FD/$09 /$74/$18 /$80/$FD/$06 /$74/$18 /$80/$FD/$0E /$74/$13
  56.       /$80/$FD/$05 /$74/$19 /$80/$FD/$0D /$74/$14 /$33/$C0 /$EB/$16 /$B8/>$05
  57.       /$EB/$11 /$B8/>$C7 /$A3/GDMAXROW /$B8/>$03 /$EB/$06 /$B8/>$04
  58.       /$A3/GDMAXPAL /$A3/GDTYPE);
  59.  
  60.   GDGSEG  := $A000;
  61.   GDGSADR := $7FF8;
  62.  
  63. end;
  64.